بسم الله الرحمن الرحيم

الدرس الثاني في الاكتف سكين Active Skin 4.3

وفي هذا الدرس سوف نعرف كيف عمل زر في الاكتف سكين

وكيفية برمجته في ال Vb

والان نبدأ ,,,,,

أولا : تصميم الزر : الزر عباره عن صورتين الصوره الاولى هي المعرضه أمام المستخدم والصوره الثانية هي الذي تظهر عند مرور الماوس عليها فلابد من أن يكون هناك صورتين لكي يتم تبديلهم

فليكن هذه الصوره الاولى

وهذه هي الصوره الثانية

إذا عند اذهب بالماوس على الزر الكلام سوف يكون محدد باللون الاحمر وله ظل وايضاً الزر نفسه سوف ينور او يعطي ضوء

السؤال هنا >> كيف أفعل ذلك ؟

الاجابة :

اولا: لابد أن يكون إمتداد الصور "*.tga"أو "*.Bmb"مهم جداً

وسبق شرح الفرق بينهم في الدرس السابق

كالمعتاد نقوم بإدراج الصور الى الاكتف أسكين كالاتي :

نضغط كليك يمين على Images ونختار Load Image

يفتح لك بروس تختار الصورتين وليكون مثلاا الاولى "1.tga" والثانية "2.tga" كما هو موضح بالشكل التالي .

سوف يدرج لك البرنامج الصورتين في قسم الـImage بنفس ااسم الصور وكما هو موضح في الشكل التالي >>

الان لابد من أن تكون هناك فورم أو سكين ليتم أدراج الزر عليه ويتم عمل فورم

بهذه الطريقة

1- كليك يمين على Objects >> Top level Windows >>

او Skinfreeform

حيث أن Skin form هي تصنع لك الفورم بدون تقطيع أي تبقى مربعه عادي

أما SkinFreeform يصنع لك البرنامج الفورمه متقطعه حسب الصوره المدخله

وكما هو موضح بالرسم إدراج فورم >>

سوف تنزل لك في الـ Objects

بالإسم الفتراضي لها وهو SkinFreeForm Object

غير أسمها بالضغط كليكتين عليها ثم إضغط F2

وسميها TEST_Form ثم أضغط Ok

ثم ادرج خلفية للفرمه وذالك بهزه الطريقه . أضغط كلكتين على الفورم وبنفس طريقة ادراج الصور للزر ادج صوره للفورم وأنا سأدلرج هذه الخلفي وأسمها Bag_Form ثم من شريط الخصائص الموجود على يمين البرنامج أختار خاصية الـ Backgrond سيظهر لك زر أضغط عليه

سيظهر لك هذه النافذه >>

على شمالك سوف تجد مسمى 1و2 و3وهي الصور الذي أدرجتها للاكتف أسكين

ستختار الصوره المسماه بـ Bag_Form وهي الصوره الذي ستكون خلفية الفورم ثم اضغط

Ctrl + A

ثم OK

الان ندرج الزر اللبوتون وذالك بهذه الطريقة كليك يمين على الفورم ثم

Create Object >>> Windwless Controls >> SkinButton

سوف تدرج لك تحت الفورم بالاسم الفتراضي وهو SkinButton Object

غير أسمه كما وضحت سابقا وسميه TEST_BUTTON

الان يتم أدراج الصور للزر اضغط كلكتين على البوتون الجديد الذي تم إضافته وهو

TEST_BUTTON ثم من شريط الخصائص الموجود على يمين البرنامج

أختار قسم الـ Normal أختار خاصية الـ Image سيظهر لك زر أضغط عليه

سيظهر لك هذه النافذه >>

على شمالك سوف تجد مسمى 1و2 و3وهي الصور الذي أدرجتها للاكتف أسكين

ستختار الصوره المسماه بـ 1 وهي الصوره الاساسيه للزر ثم اضغط

Ctrl + A

ثم OK سوف يكون لك الزر بهذا الشكل >>

الان باقي أن ندرج له الصوره الثانية وهي الذي عند مرور الماوس عليه تظهر

وتكون بهذه الطريقة .

اضغط كلكتين على البوتون TEST_BUTTON ثم من شريط الخصائص الموجود على يمين البرنامج أختار قسم الـ Highlighted أختار خاصية الـ Image سيظهر لك زر أضغط عليه سيظهر لك نفس النافزه أختر الصوره المسماه بـ 2 ثم إضغط Ctrl + A ثم Ok جرب الزر سيتغير لك بباقي أن تعطي للتغير بين الصورتين للزر تأثير وهناك العديد من التاثيرات في الاكتف أسكين

وتكون بهذه الطريقة .

اضغط كلكتين على البوتون TEST_BUTTON ثم من شريط الخصائص الموجود على يمين البرنامج أختار قسم الـ Highlighted أختار خاصية الـ

Transition ستجد زر يظهر لك أضغط عليه ستظهر لك قائمة التأثيرات وهيى كما هو موضح في الصوره التالية >>

Time الوقت الزمني الذي يعطي فيه التأثير

Transition وهو نوع التأثير

والاخرين خصائص كل تأثير تختاره

غي الـ Time الى 5000 مثلا وأجعل التأثير Fade مثلا ثم أضغط Ok

جرب الزر ولاحظ التغير ,, ولإختبار الاسكين أضغط F5

هناك سؤال

كيف أربط هذا الأسكين بال Vb

الاجابة :

أحفظ الاسكين باسم مثلا Skin_Test.skn بجانب ملفات البروجيكت او بجانب الابلكيشن ثم أضف هذا الكود في حدث اللود للفورم وهو لتحميل الاسكين

Private Sub Form_Load()

ApplySkin App.Path + "\ Skin_Test.skn"

FirstSkin = True

End Sub

وهذا الكود كما هو في حدث يسمى للاكتف اسكين بـ ApplySkin وهو لتطبيق الفورم الذي مسميها TEST_Form

Private Sub ApplySkin(SkinPath As String)

Skin1.LoadSkin SkinPath

Skin1.ApplySkinByName hWnd, " TEST_Form "

End Sub

جرب وأختبر البرنامج سوف يكون لك بهذا الشكل

باقي سؤل

كيف أبرمج هذا الزر في الـ Vb

ذلك يتم بالاتي :

نقوم بالضغط كلكتين في الفجوال على اداة الاكتف أسكين وهي تكون بهذا الشكل

ونكتب في حدث الـ Click هذا الكود وهو معناه أن أذا ضغط على الزر المسمى بـ TEST_BUTTON تنفذ لي الامر كذا.... وهو في المثال مثلا اغلاق

If Source.GetName = "TEST_BUTTON" Then

End

End If

تحياتي

لكم أخوكم أحمد عزت

Email1:Ahmed_Prof_3000@hotmail.com

Email2:Ahmed_Prof3@Yahoo.com